Решение:

• Запустите Outlook и нажмите в нем <Alt>+<F11>, чтобы открыть редактор кода Visual Basic.

В меню Tools -> References добавьте ссылку на объектную библиотеку Microsoft ActiveX Data Objects 2.1 Library.

В окне Project Explorer щелкните правой кнопкой мыши по объекту проекта Проект1 и в контекстном меню выберите Insert -> Module. Будет создан новый стандартный модуль Module1.

В этом модуле создайте новую процедуру ImportContacts() и впишите в нее необходимый код. Он может быть таким :

Public Sub ImportContacts()

Dim oFolder As MAPIFolder

Dim oNameSpace As NameSpace

Dim oContact As ContactItem

Set oNameSpace = Application.GetNamespace("MAPI")

'Создаем папку и получаем ссылку на ее объект

Set oFolder = oNameSpace.Folders ("Личные папки").Folders.Add("Контакты клиентов", olFolderContacts)

'Создаем объект соединения

Dim cn As New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Борей.mdb"

cn.Open

'Создаем объект Recordset

Dim rs As New ADODB.Recordset

rs.Open "Клиенты", cn

'Проходим циклом по Recordset

Do While rs . EOF = False

'Создаем объект контакта

Set oContact = Application.CreateItem(olContactItem)

'Заполняем его свойства на основе данных из Recordset

oContact.CompanyName = rs.Fields("Название")

oContact.FullName = rs.Fields("ОбращатьсяК")

oContact.BusinessTelephoneNumber = rs.Fields("Телефон")

'Перемещаем в нашу папку и сохраняем

oContact.Move oFolder

oContact.Save

' Освобождаем память

Set oContact = Nothing

'Сдвигаемся на одну запись в Recordset

rs.MoveNext

Loop

End Sub

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)